home *** CD-ROM | disk | FTP | other *** search
/ MacWorld Secrets (4th Edition) / Mac Secrets CD 4th Ed.toast / Shareware & Freeware / KeyQuencer 1.2.2 / Developer’s toolkit / Common code / KQGestalt.c < prev    next >
Text File  |  1995-12-16  |  1KB  |  32 lines
  1. //==============================================================================
  2. // KEYQUENCER GESTALT UTILITIES - VERSION 1.2.2 - DECEMBER 1995
  3. // By Alessandro Levi Montalcini <alm@torino.alpcom.it>
  4. // ©1994-96 Binary Software, Inc. <binarysoft@eworld.com>
  5. // This text looks best in monaco 9 font, 4 spaces per tab, no wrapping
  6. //==============================================================================
  7.  
  8. #include "KQGestalt.h"
  9.  
  10. //==============================================================================
  11. // Returns a pointer to the KeyQuencer glue record (defined in Extension.h)
  12. // or NIL if KeyQuencer is not running. Both the old shareware versions and
  13. // the new commercial versions are supported - you should check the glueRecVers
  14. // field of the glue record itself to see which routines are available.
  15.  
  16. GluePtr GetKeyQuencerGlue(void)
  17. {
  18.     GluePtr    glue;
  19.     long    response;
  20.     
  21.     if(Gestalt(kKQ20GestaltSelector, &response)==noErr
  22.     && ((INITGestaltRecPtr)response)->recType==kIGRecType)
  23.         glue = GET_KQ20_GLUE(response);
  24.     else if(Gestalt(kKQ12GestaltSelector, &response)==noErr
  25.     && ((KQGestaltPtr)response)->kqSignature==kKQ12GestaltSelector)
  26.         glue = GET_KQ12_GLUE(response);
  27.     else glue = 0L;
  28.     return glue;
  29. }
  30.  
  31. //==============================================================================
  32.